{	Problem: http://codeforces.ru/problemset/problem/66/B
	Verdict: Accepted

}
var n,i,cur,j,max:longint; a:array[1..1001] of longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
max:=0;
for i:=1 to n do begin
    cur:=1;
    j:=i-1;
    while (j>0) and (a[j]<=a[j+1]) do begin
        inc(cur);
        dec(j);
    end;
    j:=i+1;
    while (j<=n) and (a[j]<=a[j-1]) do begin
        inc(cur);
        inc(j);
    end;
    if cur>max then max:=cur;
end;
writeln(max);
end.